**********************************
* Price Level by pre-Demonetization Exposure to Cash-Dependent Consumers
**********************************

use ${datafolder}/supermarket_item_prices_real_INR.dta, clear
merge m:1 item_no using ${datafolder}/supermarket_items_exposure_groups.dta, keepusing(product_exposure exposure_group)  keep(match) nogenerate

clonevar yearmonth2 = yearmonth
replace yearmonth2 = ym(2016,11) if exposure_group == 1
tab yearmonth2

eststo mean_logp_combined: areg meanlprice b682.yearmonth b682.yearmonth2 i.storecode, absorb(item_no) vce(cluster item_no)

coefplot (mean_logp_combined, label(Low exposure items) ciopts(lwidth(*2)  recast(rcap))) , ///
	keep(*.yearmonth2) ///
	rescale(100) recast(connected) baselevels eform drop(_cons)  vertical xtitle("") ytitle("") omitted ///
	xlabel(1 " Apr 2016" 3 "Jun 2016" 5 "Aug 2016" ///
	7 "Oct 2016" 9 "Dec 2016" 11 "Feb 2017" 13 "Apr 2017" 15 "Jun 2017" 17 "Aug 2017", ///
	labsize(small)) yline(100, lcolor(red)  lpattern(dash)) xline(8, lcolor(blue)) graphregion(style(none) color(white)) bgcolor(white) ///
	ylabel(97 "97%" 98 "98%" 99 "99%" 100 "100%" 101 "101%" 102 "102%" 103 "103%", ///
	labsize(small) glcolor(gs14) glpattern(dash) angle(horizontal)) aspect(0.4)
